TestDrive Windows 1993 Fall

home *** CD-ROM | disk | FTP | other *** search

/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / ahdw / instalah.smm < prev next >

Wrap

INI File | 1993-05-20 | 14KB | 1,216 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] Olivetti JP 350 [port] LPT1: [lang] 1 [desc] 735410399 2 735410161 0 5 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 5 33 0 5 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 73 0 5 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 98 0 5 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 126 0 5 512 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 155 0 0 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 [edoc] <:#284,9360>Install American Heritage Dictionary to Tools menu at startup. <:#284,9360> <:#284,9360><+!>How to Install The American Heritage Dictionary for Ami Pro<-!> <:#284,9360> <:#568,9360>You must run this macro file in order to install The American Heritage Dictionary to your Ami Pro Tools menu. <:#284,9360> <:#284,9360>Choose Tools/Macros/Playback, then select this file, INSTALAH.SMM, as the macro file to play. <:#284,9360> <:#568,9360>This macro file, along with the companion macro file AHD.SMM, are located in The American Heritage Dictionary directory, which is normally C:\AHDW. <:#284,9360> <:#284,9360><+!>What This Macro Does<-!> <:#284,9360> <:#568,9360>This macro installs AHD.SMM as the macro to automatically run at program load (Tools/User Setup/Program load, or automacroload= in AMIPRO.INI). <:#284,9360> <:#568,9360>If you already have a macro set to run at program load, then AHD.SMM will call the old autorun macro. <:#284,9360> <:#284,9360><+!>If the Macro Fails<-!> <:#284,9360> <:#568,9360>Be sure that this file, INSTALAH.SMM, and AHD.SMM are in The American Heritage Dictionary directory. <:#284,9360> <:#568,9360>Check Tools/User Setup/Program load to see if you already have a macro entered and checked. If not, enter the path and name of AHD.SMM. <:#284,9360> <:#284,9360>If there is already an autoload macro assigned, you can edit it and add a call to AHD.SMM. <:#284,9360> <:#852,9360>Below the first line that begins with "FUNCTION," add a line with, "CALL d:\path\AHD.SMM!AHD1," replacing "d:\path" with the drive and directory where macro is installed. <:#284,9360><+!> <:#284,9360><+!>Versions Supported<-!> <:#284,9360> <:#284,9360>The macros for The American Heritage Dictionary support versions 2.0 and 3.0 of Ami Pro. <:#284,9360> <:#568,9360>If future versions of Ami Pro use compatible macro syntax, then these macros should work in those versions as well. <:#284,9360> <:p<* >> <:#284,9360>FUNCTION AHDLoad(Cmd) <:#284,9360>DEFSTR Char; <:#284,9360> IF (Decide("Choose Yes to install The American Heritage Dictionary to the Ami Pro Tools menu or choose No to quit.") = 0) EXIT FUNCTION ENDIF <:#284,9360>Ahd = "AHD.SMM" <:#284,9360> <:#284,9360>'Use path of INSTALAH macro to find AHD macro <:#284,9360>AHMac = GetRunningMacroFile$() <:#284,9360>I = LEN(AHMac) <:#284,9360>WHILE "\" != Assign(&Char, MID$(AHMac, I, 1)) <:#284,9360> I = I - 1 <:#284,9360>WEND <:#284,9360>AHMac = Left$(AHMac, I) <:#284,9360>AHMac = strcat$(AHMac, Ahd) <:#284,9360>AHMac = LCASE$(AHMac) <:#284,9360>'Make sure that the AHD macro exists in the specified path <:#284,9360>IF "" = FindFirst$(AHMac, 0) <:#284,9360> CALL AHDErr("Can't find {AHMac}.") <:#284,9360> EXIT FUNCTION <:#284,9360>ENDIF <:#284,9360>AutoLoad = GetProfileString$("AmiPro", "automacroload", "amipro.ini") <:#284,9360>'If there isn't currently an auto load macro or it is disabled, assign ours as the auto load macro. <:#284,9360>'If there is already an auto load macro, call it from AHD.SMM. <:#284,9360>IF (AutoLoad = "") <:#284,9360> CALL NewLoad(AHMac) <:#284,9360>ELSEIF "0" = LEFT$(AutoLoad, 1) <:#284,9360> CALL NewLoad(AHMac) <:#284,9360>ELSEIF (UCASE$(Ahd) = UCASE$(RIGHT$(AutoLoad, LEN(Ahd)))) <:#284,9360> CALL AHDErr("{Ahd} is already the autoload macro") <:#284,9360> EXIT FUNCTION <:#284,9360>ELSE <:#284,9360> AutoLoad = MID$(AutoLoad, 3, (LEN(AutoLoad))) <:#284,9360> CALL ModifyLoad(AHMac, AutoLoad) <:#284,9360>ENDIF <:#284,9360> <:#284,9360>END FUNCTION <:p<* >> <:#284,9360>FUNCTION AHDErr(string) <:#284,9360> Message(string) <:#284,9360>END FUNCTION <:#284,9360> <:#284,9360> <:#284,9360>FUNCTION AHDMsg(string) <:#284,9360> Message(string) <:#284,9360>END FUNCTION <:#284,9360> <:#284,9360> <:#284,9360>FUNCTION NewLoad(AHMac) <:#284,9360>'Install AHD.SMM as the new Autoload macro <:#284,9360> <:#284,9360>AHMac = strcat$("1," AHMac) <:#284,9360>WriteProfileString("AmiPro", "automacroload", AHMac, "amipro.ini") <:#284,9360>AutoLoad = GetProfileString$("AmiPro", "automacroload", "amipro.ini") <:#284,9360>IF (AutoLoad <<<;> AHMac) <:#284,9360> AHDErr("Can't install auto-load macro {AHMac}.") <:#284,9360>ELSE <:#284,9360> AHDMsg("Auto-load macro is now {AHMac}") <:#284,9360>ENDIF <:#284,9360> <:#284,9360>END FUNCTION <:#284,9360> <:p<* >> <:#284,9360>FUNCTION ModifyLoad(AHMac, AutoLoad) <:#284,9360> <:#284,9360>'Open current AutoLoad macro(check whether it's already open) <:#284,9360>IF (SelectWindow(AutoLoad) = 0) <:#284,9360> IF (FileOpen(AutoLoad, 1, "") <<<;> 1) <:#284,9360> MacDir = GetMacPath$() <:#284,9360> IF ("\" <<<;> RIGHT$(MacDir, 1)) <:#284,9360> MacDir = strcat$(MacDir, "\") <:#284,9360> ENDIF <:#284,9360> MacDir = strcat$(MacDir, AutoLoad) <:#284,9360> IF (FileOpen(MacDir, 1, "") <<<;> 1) <:#284,9360> AHDErr("Can't open {AutoLoad}.") <:#284,9360> EXIT FUNCTION <:#284,9360> ENDIF <:#284,9360> ENDIF <:#284,9360>ENDIF <:#284,9360> <:#284,9360>Cmd = strcat$(AHMac, "!AHD1") <:#284,9360> <:#284,9360>'Check whether AHD is already installed <:#284,9360>IF (Replace(0, 0, FindFromPage1, Cmd, "") = 1) <:#568,9360> AHDErr("The American Heritage Dictionary has already been installed in auto-load macro {AutoLoad}.") <:#284,9360> FileClose() <:#284,9360> EXIT FUNCTION <:#284,9360>ENDIF <:#284,9360> <:#284,9360>'Page down for more <:p<* >> <:#284,9360>'Find end of main function and insert call to AHD <:#284,9360>TYPE("<[>CTRLHome]") ' go to the beginning of the document <:#284,9360>WHILE(TRUE) ' create a loop <:#284,9360> IF (Replace(0, 0, 0, "FUNCTION", "") = 1) <:#284,9360> TYPE("<[>ESC]<[>CTRLLeft]") ' deselect the word <:#284,9360> 'In order to attempt to ensure that <:#284,9360> IF (GetTextBeforeCursor$() = "") <:#284,9360> BREAK <:#284,9360> ENDIF <:#284,9360> TYPE("<[>CTRLRight]") ' go to next word <:#284,9360> ELSE <:#284,9360> AHDErr("Can't find main macro function in {AutoLoad}.") <:#284,9360> FileClose() <:#284,9360> EXIT FUNCTION <:#284,9360> ENDIF <:#284,9360>WEND <:#284,9360> <:#284,9360>TYPE("<[>End]<[>Enter]'Add The American Heritage Dictionary to the Tools menu.<[>Enter]") <:#284,9360>TYPE("CALL {Cmd}()<[>Enter]") <:#284,9360>IF (Save() = 1) <:#284,9360> CALLI {Cmd}() <:#284,9360> AHDMsg("The American Heritage Dictionary has been added to the Tools menu.") <:#284,9360>ELSE <:#284,9360> AHDErr("Can't save {AutoLoad}.") <:#284,9360>ENDIF <:#284,9360>FileClose() <:#284,9360> <:#284,9360>END FUNCTION <:#284,9360> > [Embedded] 00011698 > [macsum] 5 AHDLoad 0 1 6 33 AHDErr 910 1 1 73 AHDMsg 944 1 1 78 NewLoad 978 1 2 83 ModifyLoad 1263 2 3 98 [macse] 14 AHDLoad 0 2 "Choose Yes to install The American Heritage Dictionary to the Ami Pro Tools menu or choose No to quit." 13 5 0 18 0 11 00000162 6 1 15 9 7 "AHD.SMM" 8 3 0 802 13 8 4 0 14 "{4}" 13 8 5 7 "\" 0 15 "{4}" "{5}" 1 13 0 805 &2 [X] 13 18 1 11 00000318 6 5 5 1 3 1 8 5 10 00000217 0 806 "{4}" "{5}" 13 8 4 0 16 "{4}" "{3}" 13 8 4 0 17 "{4}" 13 8 4 7 "" 0 280 "{4}" 0 13 18 0 11 00000479 16 AHDErr "Can't find {4}." 6 1 15 9 0 286 "AmiPro" "automacroload" "amipro.ini" 13 8 6 6 6 7 "" 18 0 11 00000594 16 NewLoad "{4}" 10 00000898 7 "0" 0 806 "{6}" 1 13 18 0 11 00000670 16 NewLoad "{4}" 10 00000898 0 18 "{3}" 13 0 14 "{3}" 13 0 807 "{6}" [X] 13 0 18 [X] 13 18 0 11 00000828 16 AHDErr "{3} is already the autoload macro" 6 1 15 9 10 00000898 0 14 "{6}" 13 0 15 "{6}" 3 [X] 13 8 6 16 ModifyLoad "{4}" "{6}" 6 1 15 9 14 AHDErr 0 3 "{0}" 6 1 15 9 14 AHDMsg 0 3 "{0}" 6 1 15 9 14 NewLoad 0 16 "1," "{0}" 13 8 0 0 287 "AmiPro" "automacroload" "{0}" "amipro.ini" 0 286 "AmiPro" "automacroload" "amipro.ini" 13 8 2 6 2 6 0 18 1 11 00000233 16 AHDErr "Can't install auto-load macro {0}." 10 00000273 16 AHDMsg "Auto-load macro is now {0}" 6 1 15 9 14 ModifyLoad 0 796 "{1}" 13 5 0 18 0 11 00000306 2 102 1 "{1}" 1 "" 13 5 1 18 1 11 00000306 0 295 13 8 3 7 "\" 0 807 "{3}" 1 13 18 1 11 00000190 0 16 "{3}" "\" 13 8 3 0 16 "{3}" "{1}" 13 8 3 2 102 1 "{3}" 1 "" 13 5 1 18 1 11 00000306 16 AHDErr "Can't open {1}." 6 2 15 9 0 16 "{0}" "!AHD1" 13 8 4 2 488 1 0 0 8192 "{4}" "" 13 5 1 18 0 11 00000508 16 AHDErr "The American Heritage Dictionary has already been installed in auto-load macro {1}." 2 147 1 6 2 15 9 0 6 "[16420]" 5 1 11 00000779 2 488 1 0 0 0 "FUNCTION" "" 13 5 1 18 0 11 00000693 0 6 "[27][16421]" 0 37 13 7 "" 18 0 11 00000665 10 00000779 0 6 "[16423]" 10 00000766 16 AHDErr "Can't find main macro function in {1}." 2 147 1 6 2 15 9 10 00000523 0 6 "[35][13]'Add The American Heritage Dictionary to the Tools menu.[13]" 0 6 "CALL {4}()[13]" 2 103 1 13 5 1 18 0 11 00001017 16 "{4}" 16 AHDMsg "The American Heritage Dictionary has been added to the Tools menu." 10 00001046 16 AHDErr "Can't save {1}." 2 147 1 6 2 15 9 00011723